guile/testsuite/t-records.scm at 49edef60dc34fcdb40ba1df3b5136e88796870c0 - mirror/guile - git.caem.dev

mirror/guile

mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-04 19:20:27 +02:00

Ludovic Courtes 0b5f0e49a8 * 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

2008-04-25 19:09:30 +02:00

12 lines

283 B

Scheme

Raw Blame History

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

 (use-modules (srfi srfi-9))
 (define-record-type <stuff>
   (%make-stuff chbouib)
   stuff?
   (chbouib stuff:chbouib stuff:set-chbouib!))
 (and (stuff? (%make-stuff 12))
      (= 7 (stuff:chbouib (%make-stuff 7)))
      (not (stuff? 12))
      (not (false-if-exception (%make-stuff))))