# HG changeset patch
# User jwe
# Date 1026501904 0
# Node ID 9a73d0e7e7377c332c660805eeb8cf01727b305e
# Parent  258c1d15ad78f970efa156bc87b9dab9bb3d1a83
[project @ 2002-07-12 19:25:04 by jwe]

diff -r 258c1d15ad78 -r 9a73d0e7e737 src/ChangeLog
--- a/src/ChangeLog	Thu Jul 11 19:33:35 2002 +0000
+++ b/src/ChangeLog	Fri Jul 12 19:25:04 2002 +0000
@@ -1,3 +1,9 @@
+2002-07-12  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* lex.l (@): Handle new token.
+	* parse.y (constant): Accept function handle syntax.
+	(make_constant): Create function handles here.
+
 2002-07-11  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* defun.cc (check_version): Improve error message.
diff -r 258c1d15ad78 -r 9a73d0e7e737 src/lex.l
--- a/src/lex.l	Thu Jul 11 19:33:35 2002 +0000
+++ b/src/lex.l	Fri Jul 12 19:25:04 2002 +0000
@@ -689,6 +689,14 @@
     TOK_RETURN ('.');
   }
 
+"@" {
+    current_input_column++;
+    lexer_flags.cant_be_identifier = false;
+    lexer_flags.quote_is_transpose = false;
+    lexer_flags.convert_spaces_to_comma = false;
+    return '@';
+  }
+
 "+="	{ BIN_OP_RETURN (ADD_EQ, false); }
 "-="	{ BIN_OP_RETURN (SUB_EQ, false); }
 "*="	{ BIN_OP_RETURN (MUL_EQ, false); }
@@ -1728,9 +1736,9 @@
 
   assert (nread == 1);
 
-  lexer_flags.quote_is_transpose = 1;
-  lexer_flags.cant_be_identifier = 1;
-  lexer_flags.convert_spaces_to_comma = 1;
+  lexer_flags.quote_is_transpose = true;
+  lexer_flags.cant_be_identifier = true;
+  lexer_flags.convert_spaces_to_comma = true;
 
   if (lexer_flags.plotting && ! lexer_flags.in_plot_range)
     lexer_flags.past_plot_range = true;