ref: 5a6c56dc3d503381dc66d6cb09cb94aa7ddd2d7c
parent: 2f5acfbe5138dbfc1591ef676311a85e54c5260e
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
};