Codebase list cafeobj / 2e9bc9d
It seems no one did 'exec+ <term>'. tswd 5 years ago
1 changed file(s) with 8 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all
+8
-2
chaos/cafein/rengine.lisp less more
875875 (with-variable-as-constant (term)
876876 (case mode
877877 (:exec+
878 #|| I should re-think this towise!
878879 (let ((*rwl-search-no-state-report* t))
879880 (rwl-search* term
880881 nil ; pattern
891892 (rwl-state-term
892893 (car (rwl-sch-context-answers .rwl-sch-context.))))
893894 (with-output-chaos-error ()
894 (format t "PANIC!")))))
895 (format t "PANIC!"))))
896 ||#
897 )
895898 (otherwise
896899 (setq $$trials 1)
897900 (let ((*trace-level* 0))
924927 (with-variable-as-constant (term)
925928 (case mode
926929 (:exec+
930 #|| do we really need this?
927931 (let ((*rwl-search-no-state-report* t))
928932 (rwl-search* term
929933 nil ; pattern
940944 (rwl-state-term
941945 (car (rwl-sch-context-answers .rwl-sch-context.))))
942946 (with-output-chaos-error ()
943 (format t "PANIC!")))))
947 (format t "PANIC!"))))
948 ||#
949 )
944950 (otherwise
945951 (setq $$trials 1)
946952 (let ((*trace-level* 0))