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:
parent
f8618a522f
commit
a3ddf537dc
1 changed files with 1 additions and 4 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue