[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv24098

Modified Files:
	lisp-syntax.lisp 
Log Message:
Fixed `form-operator'.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/05/02 14:33:33	1.60
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/05/02 17:04:37	1.61
@@ -1272,7 +1272,7 @@
 (defmethod form-operator ((form list-form) syntax)
   (let* ((operator-token (first-form (rest (children form))))
          (operator-symbol (when operator-token
-                            (token-to-object syntax operator-token t))))
+                            (token-to-object syntax operator-token :no-error t))))
     operator-symbol))
 
 (defgeneric form-operands (form syntax)