Changeset 4130

Timestamp:

09/29/03 16:44:30 (19 years ago)

Author:

piso

Message:

nameToChar(): added null.

File:

• trunk/j/src/org/armedbear/lisp/Lisp.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/Lisp.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Lisp.java,v 1.158 2003-09-29 16:15:42 piso Exp $
+ * $Id: Lisp.java,v 1.159 2003-09-29 16:44:30 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -689 +689 @@
             return '\t';
         if (lower.equals("newline"))
-            return'\n';
+            return '\n';
         if (lower.equals("linefeed"))
             return '\n';
@@ -696 +696 @@
         if (lower.equals("page"))
             return '\f';
+        if (lower.equals("null"))
+            return 0;
         if (lower.equals("backspace"))
             return '\b';