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