suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 8268eaf7257cbf99d321a901ac0fa0ed7e0fd823
This commit is contained in:
Matthew Flatt 2001-02-16 23:51:05 +00:00
parent e6dbfe3f12
commit 119f5cf116
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/class.ss
View File

@ -801,7 +801,7 @@
immutable-box-id ... ;; rename, inherit
mutable-box-id ...) ;; override, public
(let-syntax ([immutable-boxed-id
(set!-expander
(make-set!-transformer
(lambda (stx)
(syntax-case stx (set!)
[vr (identifier? (syntax vr))
@ -814,7 +814,7 @@
[(vr . args) (syntax ((unbox immutable-box-id) . args))])))]
...
[mutable-boxed-id
(set!-expander
(make-set!-transformer
(lambda (stx)
(syntax-case stx (set!)
[vr (identifier? (syntax vr))

2
collects/mzlib/private/unitidmap.ss
View File

@ -3,7 +3,7 @@
(define (make-id-mapper unbox-stx)
(let ([set!-stx (datum->syntax 'set! #f unbox-stx)])
(set!-expander
(make-set!-transformer
(lambda (sstx)
(cond
[(identifier? sstx) unbox-stx]