--- a/src/lex.l	Thu Feb 20 04:49:55 2003 +0000
+++ b/src/lex.l	Thu Feb 20 08:35:55 2003 +0000
@@ -555,6 +555,14 @@
   }
 
 %{
+// Function handles.
+%}
+
+@{IDENT} {
+    TOK_PUSH_AND_RETURN (&yytext[1], FCN_HANDLE);
+  }
+
+%{
 // A new line character.  New line characters inside matrix constants
 // are handled by the <MATRIX_START> start state code above.  If closest
 // nesting is inside parentheses, don't return a row separator.
@@ -746,14 +754,6 @@
     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 '@';
-  }
-
 "+="	{ XBIN_OP_RETURN (ADD_EQ, false); }
 "-="	{ XBIN_OP_RETURN (SUB_EQ, false); }
 "*="	{ XBIN_OP_RETURN (MUL_EQ, false); }