summaryrefslogtreecommitdiff
path: root/module/system/base/compile.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-10-16 17:56:39 +0200
committerAndy Wingo <wingo@pobox.com>2009-10-23 15:10:25 +0200
commit8753fd537c4eadf7495f4ba867def99e77246dfc (patch)
tree75f3346261ae62909bc3d9776df0571990d44943 /module/system/base/compile.scm
parent8a4ca0ea3bd3e378fc63ef719ce828b7252b3985 (diff)
downloadguile-8753fd537c4eadf7495f4ba867def99e77246dfc.tar.gz
fix brainfuck for new tree-il, and add tests
* 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.
Diffstat (limited to 'module/system/base/compile.scm')
-rw-r--r--module/system/base/compile.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 4d1c92fd8..da3f7cd98 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -28,7 +28,10 @@
#:use-module (ice-9 receive)
#:export (syntax-error
*current-language*
- compiled-file-name compile-file compile-and-load
+ compiled-file-name
+ compile-file
+ compile-and-load
+ read-and-compile
compile
decompile)
#:export-syntax (call-with-compile-error-catch))