Skip to content

Instantly share code, notes, and snippets.

@nkoguro

nkoguro/test.scm.diff

Created December 30, 2013 09:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save nkoguro/8180045 to your computer and use it in GitHub Desktop.
Save nkoguro/8180045 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.scm.diff
diff --git a/lib/gauche/test.scm b/lib/gauche/test.scm
index d23089f..6451243 100644
--- a/lib/gauche/test.scm
+++ b/lib/gauche/test.scm
@@ -336,7 +336,7 @@
(let loop ([r '()] [code (code->list (closure-code closure))])
(cond [(null? code) r]
[(and (pair? (car code))
- (memq (caar code) '(GREF-CALL GREF-TAIL-CALL)))
+ (memq (caar code) '(GREF-CALL PUSH-GREF-CALL GREF-TAIL-CALL PUSH-GREF-TAIL-CALL)))
(if (pair? (cdr code))
(if (identifier? (cadr code))
(loop `((,(cadr code) ,(gref-numargs (car code))) ,@r)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment