mes: with-fluids: Fix reset.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 15 Oct 2018 08:39:02 +0000 (10:39 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 15 Oct 2018 08:39:02 +0000 (10:39 +0200)
* mes/module/mes/fluids.mes (with-fluids): Fix reset.
* tests/fluids.test (report): Remove Mes failure expectation.

mes/module/mes/fluids.mes
tests/fluids.test

index 77ffcd23dda4ff883fab0a1aab8c25277d128e2c..a415c247a384862d4ed8d226c9add079139feeba 100644 (file)
@@ -92,7 +92,7 @@
     `(let ,(map (lambda (b s) `(,s (,b))) (map car bindings) syms)
        ,@(map (lambda (o) `(fluid-set! ,(car o) ,(cadr o))) bindings)
        (let ((r (begin ,@bodies)))
-         `,@(map (lambda (b s) `(fluid-set! ,b ,s)) (map car bindings) syms)
+         ,@(map (lambda (b s) `(fluid-set! ,b ,s)) (map car bindings) syms)
          r))))
 
 (define (dynamic-wind in-guard thunk out-guard)
index ac87572ea99ea5dc4419f58719c8240eb8226754..5fce8e873b1abd615f4cc07e20fa61e0e04084dc 100755 (executable)
@@ -51,14 +51,14 @@ exec ${MES-src/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
 ;;     0 (with-fluids* (list a b) '(0 1)
 ;;                     (lambda () (fluid-ref a))))
 
-(pass-if-equal "with-fluids"
+(pass-if-eq "with-fluids"
     0 (with-fluids ((a 1)
                     (a 2)
                     (a 3))
         (fluid-set! a 0)
         (fluid-ref a)))
 
-(pass-if-equal "with-fluids" ; FIXME: fails with Mes
+(pass-if-eq "with-fluids"
     #f (begin
          (with-fluids ((a 1)
                        (b 2))
@@ -66,4 +66,4 @@ exec ${MES-src/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
            (display "X:") (display (fluid-ref a)) (newline))
          (fluid-ref a)))
 
-(result 'report (if mes? 1 0))
+(result 'report)