diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-01-27 21:23:09 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-01-27 21:23:09 +0000 |
commit | 2ebe323a1524ab84be203fd49214eeaa514da3db (patch) | |
tree | a219da8bc9b534c984a92d29b33f4b86023e2f44 | |
parent | c8fc38b13ba15c708479f5c6bfceb0e0f67e02ef (diff) | |
download | guile-2ebe323a1524ab84be203fd49214eeaa514da3db.tar.gz |
(while): Tests running in empty environment are
now "unresolved" do to workaround in while implementation.
-rw-r--r-- | test-suite/tests/syntax.test | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test index 46bf89229..1ea6ac1f6 100644 --- a/test-suite/tests/syntax.test +++ b/test-suite/tests/syntax.test @@ -1,6 +1,6 @@ ;;;; syntax.test --- test suite for Guile's syntactic forms -*- scheme -*- ;;;; -;;;; Copyright (C) 2001,2003,2004 Free Software Foundation, Inc. +;;;; Copyright (C) 2001,2003,2004, 2005 Free Software Foundation, Inc. ;;;; ;;;; This program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -968,19 +968,26 @@ ;; an environment with no bindings at all (define empty-environment (make-module 1)) + + ;; these tests are 'unresolved because to work with ice-9 syncase it was + ;; necessary to drop the unquote from `do' in the implementation, and + ;; unfortunately that makes `while' depend on its evaluation environment (pass-if "empty body" + (throw 'unresolved) (eval `(,while #f) empty-environment) #t) (pass-if "initially false" + (throw 'unresolved) (eval `(,while #f #f) empty-environment) #t) (pass-if "iterating" + (throw 'unresolved) (let ((cond (make-iterations-cond 3))) (eval `(,while (,cond) 123 456) |