summaryrefslogtreecommitdiff
path: root/module/rnrs
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-01-20 21:16:50 +0100
committerAndy Wingo <wingo@pobox.com>2012-01-20 21:16:50 +0100
commitfb01fd87729256ac9740a275ced1dd83dafadfdf (patch)
tree12aa770465904a26409fd0a68d644320ed32c77d /module/rnrs
parent9accf3d98ffd1d9d484e5214a9dd9e4054204557 (diff)
downloadguile-fb01fd87729256ac9740a275ced1dd83dafadfdf.tar.gz
remove duplicate when/unless definitions
* module/rnrs/control.scm: * module/sxml/ssax.scm: * test-suite/lalr/common-test.scm: Remove local `when'/`unless' definitions.
Diffstat (limited to 'module/rnrs')
-rw-r--r--module/rnrs/control.scm14
1 files changed, 2 insertions, 12 deletions
diff --git a/module/rnrs/control.scm b/module/rnrs/control.scm
index b81c1338a..25ffa3eec 100644
--- a/module/rnrs/control.scm
+++ b/module/rnrs/control.scm
@@ -1,6 +1,6 @@
;;; control.scm --- The R6RS control structures library
-;; Copyright (C) 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2010, 2012 Free Software Foundation, Inc.
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
@@ -19,14 +19,4 @@
(library (rnrs control (6))
(export when unless do case-lambda)
- (import (only (guile) if not begin define-syntax syntax-rules do case-lambda))
-
- (define-syntax when
- (syntax-rules ()
- ((when test result1 result2 ...)
- (if test (begin result1 result2 ...)))))
-
- (define-syntax unless
- (syntax-rules ()
- ((unless test result1 result2 ...)
- (if (not test) (begin result1 result2 ...))))))
+ (import (only (guile) when unless do case-lambda)))