瀏覽代碼

Add substitution in expression

Samuel W. Flint 6 年之前
父節點
當前提交
d40dba1a0f
共有 1 個文件被更改,包括 5 次插入0 次删除
  1. 5 0
      larcs.org

+ 5 - 0
larcs.org

@@ -186,6 +186,11 @@ Of the various types, there are three atomic types, ~<number>~, ~<variable>~ and
   (defmethod atomicp ((expression <atomic>))
     (declare (ignore expression))
     t)
+
+  (defmethod subsitute-expression (expression with (in <atomic>))
+    (if (eqal expression in)
+        with
+        in))
 #+END_SRC
 
 *** DONE Numbers