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

.

Browse Source 
original commit: 5cc61b9b52587f5a35900b91cc2cf4a65e5b43f7
This commit is contained in:
Matthew Flatt 2001-04-22 22:28:18 +00:00
parent 4ba54d8a8f
commit 3852ba7a19
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mzlib/class.ss
View File

@ -63,6 +63,7 @@
(lambda (defn-or-expr)
(local-expand
defn-or-expr
'internal-define
(append
(kernel-form-identifier-list (quote-syntax here))
(list
@ -111,9 +112,10 @@
public-final override-final
rename inherit)
[(form idp ...)
(ormap (lambda (f) (module-identifier=? (syntax form) f))
(list (quote-syntax init)
(quote-syntax init-field)))
(and (identifier? (syntax form))
(ormap (lambda (f) (module-identifier=? (syntax form) f))
(list (quote-syntax init)
(quote-syntax init-field))))
(let ([form (syntax-e (syntax form))])
(for-each
(lambda (idp)
@ -299,6 +301,7 @@
(define (expand expr locals)
(local-expand
expr
'expression
(append locals expand-stop-names)))
;; Checks whether the vars sequence is well-formed
(define (vars-ok? vars)