ref: 76aec5fa7a058f6a9f69570efe13dff3cb957e76
parent: f32471311a6f949513664b9788a8087074b9d1f9
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Wed Dec 11 21:29:09 EST 2024
OP_THE_EMPTY_LIST → OP_NIL
--- a/flisp.h
+++ b/flisp.h
@@ -328,7 +328,7 @@
#include "opcodes.h"
enum {- FL_nil = builtin(OP_THE_EMPTY_LIST),
+ FL_nil = builtin(OP_NIL),
FL_t = builtin(OP_BOOL_CONST_T),
FL_f = builtin(OP_BOOL_CONST_F),
FL_eof = builtin(OP_EOF_OBJECT),
--- a/gen.lsp
+++ b/gen.lsp
@@ -95,7 +95,7 @@
OP_AREF aref -2 (λ rest (apply aref rest))
OP_BOOL_CONST_F dummy_f #f 0
OP_BOOL_CONST_T dummy_t #f 0
- OP_THE_EMPTY_LIST dummy_nil #f 0
+ OP_NIL dummy_nil #f 0
OP_EOF_OBJECT dummy_eof #f 0
))
--- a/opcodes.h
+++ b/opcodes.h
@@ -94,7 +94,7 @@
OP_AREF,
OP_BOOL_CONST_F,
OP_BOOL_CONST_T,
- OP_THE_EMPTY_LIST,
+ OP_NIL,
OP_EOF_OBJECT,
N_OPCODES
};