X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fmain.lisp;h=29c50ea646b5f9378accfc62cd981914e3b32c52;hp=6f319c48fe5abd7cc944c08b48c69d123db6d987;hb=31f7cb6;hpb=97c390f3cee5094fa6795acd4b25b7598d5dd1bd

diff --git a/src/main/main.lisp b/src/main/main.lisp
index 6f319c4..29c50ea 100644
--- a/src/main/main.lisp
+++ b/src/main/main.lisp
@@ -120,7 +120,8 @@ DESCRIPTION:
                      (lambda (pair)
                       `(list ,(car pair) (lambda () ,(intern (string-upcase (car pair)) *model-package*))))
                      globals))
-        :turtles-own-vars ',(clnl-code-parser:turtles-own-vars code-ast))
+        :turtles-own-vars ',(clnl-code-parser:turtles-own-vars code-ast)
+        :patches-own-vars ',(clnl-code-parser:patches-own-vars code-ast))
        ,@(when netlogo-callback
           `((funcall ,netlogo-callback
              (lambda (netlogo-code)
@@ -193,7 +194,8 @@ DESCRIPTION:
                  ,@(mapcar
                     (lambda (pair) `(list ,(car pair) (lambda () ,(intern (string-upcase (car pair)) *model-package*))))
                     globals))
-       :turtles-own-vars ',(clnl-code-parser:turtles-own-vars code-ast))
+       :turtles-own-vars ',(clnl-code-parser:turtles-own-vars code-ast)
+       :patches-own-vars ',(clnl-code-parser:patches-own-vars code-ast))
       ,@(when initialize-interface `((clnl-interface:initialize :dims ',(clnl-model:world-dimensions model)))))
      ,@(when netlogo-callback-fn
         `((defun ,netlogo-callback-fn (,(intern "NETLOGO-CODE" *model-package*))