[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	lisp-syntax.lisp 
Log Message:
Fixed bug accidentaly introduced by last commit.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/07/22 15:59:25	1.94
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/07/22 16:48:20	1.95
@@ -3692,8 +3692,7 @@
                                         (multiple-value-list
                                          (find-operand-info ,mark-value-sym ,syntax-value-sym form)))))
                                  (or (recurse (parent form))
-                                     (unless (and (typep form 'complete-token-lexeme)
-                                                  (direct-arg-p form ,syntax-value-sym))
+                                     (unless (direct-arg-p form ,syntax-value-sym)
                                        form))))))
                   (or (recurse (parent immediate-form))
                       (parent immediate-form))))))