diff options
| author | Ludovic Courtes <ludovic.courtes@laas.fr> | 2005-06-25 03:13:56 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2008-04-25 19:09:30 +0200 |
| commit | 0b5f0e49a8b172544e2a7cb564c01c2ec439aaec (patch) | |
| tree | 42265eb157f9bd5869eccfc93e395f9fed89b2bf /benchmark/lib.scm | |
| parent | 6208295910a6fab78228b8255ed56ccd089bd5f0 (diff) | |
| download | guile-0b5f0e49a8b172544e2a7cb564c01c2ec439aaec.tar.gz | |
* src/objcodes.c (make_objcode_by_mmap): Fixed the error type when the
object file is too small.
* doc/guile-vm.texi: Documented `make-closure'. Improved the documentation
of `load-program'.
* testsuite: New directory.
* configure.in: Added `testsuite/Makefile' to `AC_OUTPUT'.
* Makefile.am (SUBDIRS): Added `testsuite'.
* src/vm_engine.h (VM_CHECK_OBJECT): New option.
(CHECK_OBJECT): New macro.
* src/vm_system.c (object-ref): Use VM_CHECK_OBJECT.
* module/system/vm/assemble.scm (preprocess): Commented out the debugging
code.
* benchmark/lib.scm (do-loop): New procedure.
git-archimport-id: lcourtes@laas.fr--2005-mobile/guile-vm--mobile--0.6--patch-2
Diffstat (limited to 'benchmark/lib.scm')
| -rw-r--r-- | benchmark/lib.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/benchmark/lib.scm b/benchmark/lib.scm index 31e524453..d46e00ca9 100644 --- a/benchmark/lib.scm +++ b/benchmark/lib.scm @@ -99,6 +99,13 @@ 0 (loopi (1- n))))) +(define (do-loop n) + ;; Same as `loop' using `do'. + (do ((i n (1- i))) + ((= 0 i)) + ;; do nothing + )) + (define (do-cons x) ;; This one shows that the built-in `cons' instruction yields a significant |