Created
March 19, 2013 03:05
-
-
Save leoliu/5193415 to your computer and use it in GitHub Desktop.
Add sharpsign dot #. for read-time evaluation
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
commit 0cdc60320269e696c18e9423c2f0e15b52beeb81 | |
Author: Leo Liu <[email protected]> | |
Date: Sun Mar 4 09:22:57 2012 +0800 | |
Add sharpsign dot #. for read-time evaluation | |
--- | |
src/lread.c | 2 ++ | |
1 file changed, 2 insertions(+) | |
Modified src/lread.c | |
diff --git a/src/lread.c b/src/lread.c | |
index 2e54b91d..bd2b424e 100644 | |
--- a/src/lread.c | |
+++ b/src/lread.c | |
@@ -2490,6 +2490,8 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) | |
UNREAD (c); | |
invalid_syntax ("#"); | |
} | |
+ if (c == '.') | |
+ return Feval (read0 (readcharfun), Vlexical_binding); | |
if (c == '^') | |
{ | |
c = READCHAR; | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment