Switched some more ? to ' in variable uses.

sellout · Sep 10, 2011 · c1ee510 · c1ee510
1 parent 134ee41
commit c1ee510
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 7 deletions.
diff --git a/library/simple-components.kiln b/library/simple-components.kiln
@@ -31,9 +31,9 @@
      ;;  similar to :USEing the component in a Common Lisp DEFPACKAGE.
      (par (trigger* {include-component ?filename}
                     (new component (par (trigger* {component-out ?out down}
-                                                  ?out)
+                                                  'out)
                                         (trigger* {component-local ?local down}
-                                                  ?local)
+                                                  'local)
                                         [component (lisp (load #.?filename))])))
           ;; `load-component` gives you better isolation, but requires that you
           ;; "qualify" the message with the name of the kell you pass in. Using

diff --git a/tests/test-examples.kiln b/tests/test-examples.kiln
@@ -14,7 +14,7 @@
 {test-result (par {should {execute-received-message}}
                   {test (new a
                              (par {a {echo "Hello World"}}
-                                  (trigger {a ?x} ?x)))}
+                                  (trigger {a ?x} 'x)))}
                   {expected-result {echo "Hello World"}})}
 
 ;;; location.kiln
@@ -33,15 +33,17 @@
                   {test (new a
                              (par {a "Hello"}
                                   {a "World"}
-                                  (trigger {a ?x} {echo ?x})))}
+                                  (trigger {a ?x} {echo 'x})))}
                   {expected-result {echo "Hello"}})}
 
 ;;; synchronous.kiln
 {test-result (par {should {concatenate-message}}
                   {test (new a
-                             (par (new r
+                             (par (load "library/simple-components")
+                                  {include-component "library/strings"}
+                                  (new r
                                        (par {a (list "hello " "world" {r})}
-                                            (trigger {r ?x} {echo ?x})))
+                                            (trigger {r ?x} {echo 'x})))
                                   (trigger {a (list ?x ?y {?r})}
-                                           {r (lisp (cl:concatenate 'cl:string #.?x #.?y))})))}
+                                           {string-concat (list 'x 'y {r})})))}
                    {expected-result {echo "hello world"}})}