fix 'local-expand' checking of stop list to disallow symbols; extend 'continuation-marks' to work on threads; fix HtDP language module-level stop list
svn: r12101 original commit: bb7d3d1a287a7aabdb11edeb16bf215a028ffe31
This commit is contained in:
parent
3f4a4b08a9
commit
f74e80e43a
|
@ -645,7 +645,9 @@
|
||||||
swapped-renames)
|
swapped-renames)
|
||||||
(loop (cdr e))
|
(loop (cdr e))
|
||||||
(cons (car e) (loop (cdr e)))))))]
|
(cons (car e) (loop (cdr e)))))))]
|
||||||
[local-vars (append renamed-internals filtered-exported-names imported-names)]
|
[local-vars (map (lambda (s)
|
||||||
|
(datum->syntax-object expr s))
|
||||||
|
(append renamed-internals filtered-exported-names imported-names))]
|
||||||
[expand-context (generate-expand-context)]
|
[expand-context (generate-expand-context)]
|
||||||
[import-stxes (apply append (map (lambda (i)
|
[import-stxes (apply append (map (lambda (i)
|
||||||
(map
|
(map
|
||||||
|
|
Loading…
Reference in New Issue
Block a user