Fix lisp interpreter test

Make `perl6 lisp.pl --test` pass again. « is for word quoting with interpolation so changing for q.
Raku · Oct 1, 2016 · 2bb7126 · 2bb7126
1 parent 3da8055
commit 2bb7126
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/categories/interpreters/lisp.pl b/categories/interpreters/lisp.pl
@@ -485,7 +485,7 @@ sub TEST {
                 [["1", ["2", ["3", ["3", "5"]]]]], 'nested list';
     ok eval(qq{ (define fib (lambda (n)  (if (< n 2)  1  (+ (fib (- n 1)) (fib (- n 2)))))) })  &&
     eval("(fib 10)") == 89, 'fib(10)';
-    eval «
+    eval '
          (define (sqrt x)
            (begin
             (define (square x) (* x x))
@@ -499,7 +499,7 @@ sub TEST {
                   guess
                 (sqrt-iter (improve guess))))
             (sqrt-iter 1.0)))
-    »;
+    ';
     ok eval("(sqrt 4)").Int == 2, 'sqrt example';
 
     done-testing;