* syncase.scm (putprop): Temporary fix which publishes new syntax

globally (the old behaviour was complex and connected to the inner
workings of the current module system).

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 9d86e70..fb83cf5 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,9 @@
+Thu Sep  4 14:57:04 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
+
+       * syncase.scm (putprop): Temporary fix which publishes new syntax
+       globally (the old behaviour was complex and connected to the inner
+       workings of the current module system).
+
 Wed Sep  3 21:29:13 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 
        * psyntax.ss: Updated.

diff --git a/ice-9/syncase.scm b/ice-9/syncase.scm
index f2c418b..b5b20a9 100644 (file)
--- a/ice-9/syncase.scm
+++ b/ice-9/syncase.scm
@@ -49,7 +49,9 @@
                          (list why what)
                          '())))
 
-(define putprop set-symbol-property!)
+(define (putprop s p v)
+  (builtin-variable s)
+  (set-symbol-property! s p v))
 (define getprop symbol-property)
 
 (define-public sc-expand #f)