[uim-commit] r1352 - branches/r5rs/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-08-29 03:04:36 -0700 (Mon, 29 Aug 2005)
New Revision: 1352

Modified:
   branches/r5rs/scm/init.scm
Log:
* scm/init.scm
  - (allocate-heap): New dummy procedure for SIOD compatibility


Modified: branches/r5rs/scm/init.scm
===================================================================
--- branches/r5rs/scm/init.scm	2005-08-29 09:17:18 UTC (rev 1351)
+++ branches/r5rs/scm/init.scm	2005-08-29 10:04:36 UTC (rev 1352)
@@ -36,6 +36,12 @@
 
 (define enable-action? #t)
 
+;; SIOD compatibility for SigScheme
+(if (not (symbol-bound? 'allocate-heap))
+    (define allocate-heap
+      (lambda args
+        #f)))
+
 ;; Performance tuning for heavy job such as custom.scm. The value 64
 ;; allocates approximately 12MB of heaps. Reduce it for less-memory
 ;; environment (by redefining the proc in ~/.uim or default.scm).