/[guile]/guile/guile-core/test-suite/tests/optargs.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/optargs.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mvo, Sat Jun 16 20:11:39 2001 UTC revision 1.2 by dirk, Sun Nov 9 19:07:41 2003 UTC
# Line 18  Line 18 
18  ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,  ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
19  ;;;; Boston, MA 02111-1307 USA  ;;;; Boston, MA 02111-1307 USA
20    
21  (use-modules (test-suite lib)  (define-module (test-suite test-optargs)
22               (ice-9 optargs))    :use-module (test-suite lib)
23      :use-module (ice-9 optargs))
24    
25  (with-test-prefix "optional argument processing"  (with-test-prefix "optional argument processing"
   (define* (test-1 #:optional (x 0))  
     (define d 1)                        ; local define  
     #t)  
26    (pass-if "local defines work with optional arguments"    (pass-if "local defines work with optional arguments"
27             (false-if-exception (test-1))))      (eval '(begin
28                 (define* (test-1 #:optional (x 0))
29                   (define d 1)                     ; local define
30                   #t)
31                 (false-if-exception (test-1)))
32              (interaction-environment))))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26