1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-05 11:40:20 +02:00

get rid of unused match case

This commit is contained in:
Ian Price 2015-06-07 17:11:22 +01:00
parent f8618a522f
commit a3ddf537dc

View file

@ -76,10 +76,7 @@
(make-continue k2
(append (map make-id req) (list (make-id rest)))))))
(($ $cont k ($ $kreceive ($ $arity req _ #f _ _) k2))
(make-var k (make-continuation req (make-continue k2 (map make-id req)))))
(_
`(cont:todo: ,cont))
))
(make-var k (make-continuation req (make-continue k2 (map make-id req)))))))
(define (compile-exp exp k)
(match exp