guile/testsuite/t-macros2.scm at e610dc3851da716e6ee4568f94f5f7cace84d2d9 - mirror/guile - git.caem.dev

mirror/guile

mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00

Ludovic Courtes 2335fb97dc Added support for defmacro' and define-macro' in the compiler.

* module/language/scheme/translate.scm: Use `(srfi srfi-39)'.
  (&current-macros): New top-level.
  (expand-macro): New.
  (scheme-primitives): Renamed `%scheme-primitives'.
  (%forbidden-primitives): New.
  (trans): Use `expand-macro' instead of `macroexpand'.
  (trans-pair): Handle `define-macro' and `defmacro'.

* module/system/base/compile.scm (call-with-compile-error-catch): Handle
  non-pair LOC.

* testsuite/t-macros2.scm: New test case.

* testsuite/Makefile.am (vm_test_files): Updated.

* testsuite/t-macros.scm: Test `read-options'.

git-archimport-id: lcourtes@laas.fr--2005-mobile/guile-vm--mobile--0.6--patch-9

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

17 lines

359 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.

 ;; Are macros well-expanded at compilation-time?
 (defmacro minus-binary (a b)
   `(- ,a ,b))
 (define-macro (plus . args)
   `(let ((res (+ ,@args)))
      ;;(format #t "plus -> ~a~%" res)
      res))
 (plus (let* ((x (minus-binary 12 7)) ;; 5
 	     (y (minus-binary x 1))) ;; 4
 	(plus x y 5)) ;; 14
 ;; 26
       (expt 2 3))     ;; => 34