[uim-commit] r1972 - in branches/r5rs: scm uim

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-03 05:33:56 -0800 (Thu, 03 Nov 2005)
New Revision: 1972

Modified:
   branches/r5rs/scm/util.scm
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c
  - (uim_scm_init): Provide "debug" feature
* scm/util.scm
  - (feature?): New procedure


Modified: branches/r5rs/scm/util.scm
===================================================================
--- branches/r5rs/scm/util.scm	2005-11-03 13:01:04 UTC (rev 1971)
+++ branches/r5rs/scm/util.scm	2005-11-03 13:33:56 UTC (rev 1972)
@@ -315,7 +315,9 @@
   (lambda (lst)
     (append lst '())))
 
-;; Siod compatibility
+;;
+;; SIOD compatibility
+;;
 (define puts display)
 
 ;; TODO: Rename to more appropriate name such as 'inspect' (the name
@@ -328,6 +330,10 @@
 
 (define print siod-print)
 
+(define feature?
+  (lambda (sym)
+    (provided? (symbol->string sym))))
+
 ;;
 ;; SRFI procedures (don't expect 100% compatibility)
 ;;

Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-11-03 13:01:04 UTC (rev 1971)
+++ branches/r5rs/uim/uim-scm.c	2005-11-03 13:33:56 UTC (rev 1972)
@@ -616,6 +616,11 @@
   output_port = Scm_MakeSharedFilePort(uim_output, "uim", SCM_PORTFLAG_OUTPUT);
   scm_current_output_port = scm_current_error_port = output_port;
 
+#ifdef DEBUG_SCM
+  /* required by test-im.scm */
+  uim_scm_provide("debug");
+#endif
+
   ScmExp_use(Scm_Intern("siod"), SCM_INTERACTION_ENV);
   true_sym  = (uim_lisp)SCM_TRUE;
   false_sym = (uim_lisp)SCM_FALSE;