mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 12:10:28 +02:00
Code Activity

get rid of unused match case

Browse source
This commit is contained in:
Ian Price 2015-06-07 17:11:22 +01:00
parent f8618a522f
commit a3ddf537dc
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/cps/compile-js.scm
View file

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