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) (define (get-value-signature mod id proc name value)
(match 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)) (get-value-signature mod id proc name body))
(('lambda args . body) (('lambda args . body)
(list (cons name (get-optionals-signature args body)))) (list (cons name (get-optionals-signature args body))))