fixing bug in get-value-signature

This commit is contained in:
Alex Shinn 2017-04-03 00:12:06 +09:00
parent 28d119426c
commit 63688d79b6

View file

@ -564,7 +564,7 @@ div#footer {padding-bottom: 50px}
(define (get-value-signature mod id proc name value)
(match value
(('(or let let* letrec letrec*) vars body0 ... body)
(((or 'let 'let* 'letrec 'letrec*) vars body0 ... body)
(get-value-signature mod id proc name body))
(('lambda args . body)
(list (cons name (get-optionals-signature args body))))