mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-28 22:10:29 +02:00
Code Activity

remove duplicate when/unless definitions

Browse source 
* module/rnrs/control.scm:
* module/sxml/ssax.scm:
* test-suite/lalr/common-test.scm: Remove local `when'/`unless'
  definitions.
This commit is contained in:
Andy Wingo 2012-01-20 21:16:50 +01:00
parent 9accf3d98f
commit fb01fd8772
3 changed files with 3 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/lalr/common-test.scm
View file

@ -8,13 +8,6 @@
(define *error* '())
(define-syntax when
(syntax-rules ()
((_ ?expr ?body ...)
(if ?expr
(let () ?body ...)
#f))))
(define-syntax check
(syntax-rules (=>)
((_ ?expr => ?expected-result)