Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove debug code

Browse source
This commit is contained in:
Justin Ethier 2017-03-16 14:11:46 +00:00
parent d8a11c2ea6
commit d86b91af36
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/base.sld
View file

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