original commit: 19fa3853ce935c2e683bbd3fec9c4f9fc19c994b
This commit is contained in:
Matthew Flatt 2005-02-28 22:15:43 +00:00
parent 0bf5499d00
commit bf45f699b1

View File

@ -143,7 +143,7 @@
(list unt)
(quote ((#() . #())))
(quote (exploded-sigs)))
(invoke-unit (signed-unit-unit u)
(invoke-unit (signed-unit-unit unt)
. flat-sigs)))))])))
(define-syntax unit->unit/sig