Permalink
Browse files

Really fix nil as singleton

  • Loading branch information...
1 parent 9100914 commit d33754b01927530a049af06bf287e131fbc270f5 @jbf committed Aug 17, 2011
Showing with 4 additions and 0 deletions.
  1. +4 −0 src/ast-walker/primitives.c
@@ -22,6 +22,10 @@ extern environ_t *lib; /* Lib of public shceme functions. */
int scheme_to_c_truth(cell_t *c, environ_t *env) {
if (NULL == c) return EINVALID_TRUTH; /* error */
+
+ if (NILP(c)) {
+ return FALSE;
+ }
if (ATOMP(c)) {
cell_t *tmp = find_value(env, c);

0 comments on commit d33754b

Please sign in to comment.