From ad0dcf0a87c62bad6020619b62ec61b95cfc03af Mon Sep 17 00:00:00 2001 From: Gabriel Pariat Date: Mon, 21 Feb 2022 07:49:43 -0500 Subject: [PATCH] ajout rest --- implementations/c/src/lisp.h | 1 + implementations/c/src/symbol.c | 2 ++ 2 files changed, 3 insertions(+) diff --git a/implementations/c/src/lisp.h b/implementations/c/src/lisp.h index f9b06c3..aa67ab4 100644 --- a/implementations/c/src/lisp.h +++ b/implementations/c/src/lisp.h @@ -114,6 +114,7 @@ extern Pointer T; extern Pointer STANDARD_INPUT; extern Pointer STANDARD_OUTPUT; extern Pointer BODY; +extern Pointer REST; /** UTILS **/ void init(void); diff --git a/implementations/c/src/symbol.c b/implementations/c/src/symbol.c index cd6cdd5..f988f85 100644 --- a/implementations/c/src/symbol.c +++ b/implementations/c/src/symbol.c @@ -7,6 +7,7 @@ Pointer STANDARD_INPUT; Pointer STANDARD_OUTPUT; Pointer UNDEFINED; Pointer BODY; +Pointer REST; static Pointer SYMBOLS; @@ -55,5 +56,6 @@ void symbol_init(void) { STANDARD_OUTPUT = symbol1("*standard-output*"); UNDEFINED = symbol1("undefined"); BODY = symbol1("&body"); + REST = symbol1("&rest"); }