mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

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

Browse source 
globally (the old behaviour was complex and connected to the inner
workings of the current module system).
This commit is contained in:
Mikael Djurfeldt 1997-09-04 13:02:10 +00:00
parent 1aa8162bdc
commit 1f355b4f35
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -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.

4
ice-9/syncase.scm
View file

@ -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)