mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

fix brainfuck for new tree-il, and add tests

Browse source 
* test-suite/Makefile.am:
* test-suite/tests/brainfuck.test: Add a brainfuck test.

* module/system/base/compile.scm: Also export read-and-compile.

* module/language/tree-il/spec.scm (join): Fix the joiner in the
  0-expression case.

* module/language/tree-il/primitives.scm (+): Recognize (+ x -1) as 1-.

* module/language/brainfuck/parse.scm (read-brainfuck): Return EOF if we
  actually received EOF, and there were no expressions read.

* module/language/brainfuck/compile-tree-il.scm (compile-body): Fix the
  compiler for the new format of "lambda" in tree-il.
This commit is contained in:
Andy Wingo 2009-10-16 17:56:39 +02:00
parent 8a4ca0ea3b
commit 8753fd537c
7 changed files with 91 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

19
module/language/brainfuck/compile-tree-il.scm
View file

@ -168,14 +168,17 @@
((<bf-loop> . ,body)
(let ((iterate (gensym)))
(emit `(letrec (iterate) (,iterate)
((lambda () ()
(if (apply (primitive =)
(apply (primitive vector-ref)
(lexical tape) (lexical pointer))
(const 0))
(void)
(begin ,(compile-body body)
(apply (lexical ,iterate))))))
((lambda ()
(lambda-case
((() #f #f #f () #f)
(if (apply (primitive =)
(apply (primitive vector-ref)
(lexical tape) (lexical pointer))
(const 0))
(void)
(begin ,(compile-body body)
(apply (lexical ,iterate)))))
#f)))
(apply (lexical ,iterate))))))
(else (error "unknown brainfuck instruction" (car in))))))))