bc: unbreak raco demod

This commit is contained in:
Matthew Flatt 2021-04-10 14:55:44 -06:00
parent 4fabc762a5
commit 48621b4bf5

View File

@ -134,7 +134,7 @@
(hash-ref positions new-name/import))]))
(when (eq? linkl-mode 's-exp) (error 'demosularize "inconsistent linklet representations"))
(set! linkl-mode 'linkl)
(remap-positions (linklet*-body linkl)
(remap-positions (linkl-body linkl)
remap-toplevel-pos
#:application-hook
(lambda (rator rands remap)