diff --git a/DragonLisp.l b/DragonLisp.l index 09494e6..00a50f7 100644 --- a/DragonLisp.l +++ b/DragonLisp.l @@ -59,6 +59,7 @@ do [dD][oO] aref [aA][rR][eE][fF] t [tT] nil [nN][iI][lL] +return [rR][eE][tT][uU][rR][nN] makearray [mM][aA][kK][eE][-][aA][rR][rR][aA][yY] defconstant [dD][eE][fF][cC][oO][nN][sS][tT][aA][nN][tT] @@ -327,6 +328,11 @@ defconstant [dD][eE][fF][cC][oO][nN][sS][tT][aA][nN][tT] return token::TOKEN_NIL; }; +{return} { + std::printf("Scanned return\n"); + return token::TOKEN_RETURN; +}; + {makearray} { std::printf("Scanned makearray\n"); return token::TOKEN_MAKE_ARRAY; diff --git a/DragonLisp.y b/DragonLisp.y index ca5f171..b7d3cf6 100644 --- a/DragonLisp.y +++ b/DragonLisp.y @@ -86,6 +86,7 @@ namespace DragonLisp { AREF "aref" T "t" NIL "nil" + RETURN "return" MAKE_ARRAY "make-array" DEFCONSTANT "defconstant" ;