소스 검색

Fixed manipulate

Samuel W. Flint 9 년 전
부모
커밋
8beaccf26c
1개의 변경된 파일3개의 추가작업 그리고 18개의 파일을 삭제
  1. 3 18
      manipulation.org

+ 3 - 18
manipulation.org

@@ -600,24 +600,9 @@ Foo
 #+Caption: External Manipulator
 #+Name: external-manipulator
 #+BEGIN_SRC lisp
-  ;; (defun manipulate (action &rest expressions)
-  ;;   (case action
-  ;;     (+
-  ;;      (reduce #'add expressions))
-  ;;     (-
-  ;;      (reduce #'subtract expressions))
-  ;;     (*
-  ;;      (reduce #'multiply expressions))
-  ;;     (/
-  ;;      (reduce #'divide expressions))
-  ;;     (sin
-  ;;      (reduce #'manip-sin expressions))
-  ;;     (cos
-  ;;      (reduce #'manip-cos expressions))
-  ;;     (tan
-  ;;      (reduce #'manip-tan expressions))
-  ;;     (expt
-  ;;      (reduce #'powers expressions))))
+  (defun manipulate (action &rest expressions)
+    (reduce (cdr (assoc action *manipulator-map*))
+            expressions))
 #+END_SRC
 
 ** WORKING Addition