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:
Matthew Flatt 2008-10-23 13:38:03 +00:00
parent 3f4a4b08a9
commit f74e80e43a

View File

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