[uim-commit] r1963 - branches/r5rs/uim

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-03 04:11:30 -0800 (Thu, 03 Nov 2005)
New Revision: 1963

Modified:
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c
  - (uim_scm_init): Remove obsolete #if SCM_USE_NEWPORT


Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-11-03 12:07:38 UTC (rev 1962)
+++ branches/r5rs/uim/uim-scm.c	2005-11-03 12:11:30 UTC (rev 1963)
@@ -601,9 +601,7 @@
 uim_scm_init(const char *verbose_level)
 {
   long vlevel = 4;
-#if SCM_USE_NEWPORT
   ScmObj output_port;
-#endif
 
   if (!uim_output)
     uim_output = stderr;
@@ -614,11 +612,9 @@
 
   SigScm_Initialize();
 
-#if SCM_USE_NEWPORT
   /* GC safe */
   output_port = Scm_MakeSharedFilePort(uim_output, "uim", SCM_PORTFLAG_OUTPUT);
   scm_current_output_port = scm_current_error_port = output_port;
-#endif /* SCM_USE_NEWPORT */
 
   ScmExp_use(Scm_Intern("siod"), SCM_INTERACTION_ENV);
   true_sym  = (uim_lisp)SCM_TRUE;