Codebase list cafeobj / 64f5a4e
Delete obsolete commands. tswd 10 years ago
3 changed file(s) with 9 addition(s) and 11 deletion(s). Raw diff Collapse all Expand all
250250 (format t "~& ~20Trewrite <term> using equations as rewerite rules")
251251 (format t "~& ~20Toptional <Modexp> specifies the context")
252252 (format t "~& exec [in <Modexp> : ] <term> .")
253 (format t "~& exec+ [in <Modexp> : ] <term> .")
253 ;; (format t "~& exec+ [in <Modexp> : ] <term> .")
254254 (format t "~& ~20Trewrite <term> using both equations and rules")
255255 (format t "~& ~20Toptional <Modexp> specifies the context")
256256 (format t "~& parse [in <Modexp> : ] <term> .")
257257 (format t "~& ~20Tparse <term>, print out the result")
258 (format t "~& test {reduction|execution} <term> :expect <term> . ")
259 (format t "~& ~20Tdo test reduction(execution) in the current context")
258 ;; (format t "~& test {reduction|execution} <term> :expect <term> . ")
259 ;; (format t "~& ~20Tdo test reduction(execution) in the current context")
260260 ;; (format t "~& rew limit {<number>| .}")
261261 ;; (format t "~& ~20Tset(unset) max number of rewriting")
262262 ;; (format t "~& stop at [<term>] .")
276276 (format t "~& save <file>~20Tsave current definitions of modules to <file>")
277277 (format t "~& restore <file>~20Trestore definitions of modules from <file>")
278278 (format t "~& reset ~20Trecover defintions of built-in modules and standard prelude")
279 (format t "~& full-reset~20Treset system to initial status")
279 (format t "~& full reset~20Treset system to initial status")
280280 (format t "~&-- misc. commands")
281281 (format t "~& clean memo ~20T clean up term memoization table")
282282 (format t "~& dribble {<file>| .}~20T if <file> is given, begins to record the interaction")
16821682 ;;
16831683 (setq new-rhs (make-right-assoc-normal-form-with-sort-check
16841684 (if (eq mandor :m-and)
1685 *bool-and*
1686 *bool-or*)
1685 *bool-and-also*
1686 *bool-or-else*)
16871687 rhs-list))
16881688 #||
16891689 (setq new-axiom (make-rule :lhs (rule-lhs rule)
19781978 (parser-in-same-connected-component (first sort-list)
19791979 (third sort-list)
19801980 so))
1981 #||
19821981 ((eq method *sort-membership*)
1983 ;; _:_, the first argument is a term and the second
1982 ;; _:is_, the first argument is a term and the second
19841983 ;; argument is built-in constant of SortId.
1985 ;; thus we cannot check here!!!
1986 )
1987 ||#
1984 ;; thus, anyhing is OK.
1985 t)
19881986 (t
19891987 ;; other binary universal operators
19901988 (parser-in-same-connected-component (first sort-list)