Remove debug code

This commit is contained in:
Justin Ethier 2017-03-16 14:11:46 +00:00
parent d8a11c2ea6
commit d86b91af36

View file

@ -988,8 +988,8 @@
((null? args) ((null? args)
;; DEBUG ;; DEBUG
(let ((pobj (get-param-objs))) (let ((pobj (get-param-objs)))
(if (not (pair? (car pobj))) ;(if (not (pair? (car pobj)))
(Cyc-display `(get-param-objs not a list: ,(get-param-objs)))) ; (Cyc-display `(get-param-objs not a list: ,(get-param-objs))))
(cdr (assoc key pobj)))) (cdr (assoc key pobj))))
;; END DEBUG ;; END DEBUG
;(cdr (assoc key (get-param-objs)))) ;(cdr (assoc key (get-param-objs))))