Merge pull request #9 from JohanWiltink/main

Add support for identifiers ending in `?`

Author: Kacarott

index.html

@@ -116,7 +116,7 @@ <h1>
 chunk = \ a b xs . row-s a (colS b xs)
 append = \ as bs . null as bs (cons (head as) (append (tail as) bs))
 concat = foldr append nil
-eq = \ a b . is-z a (is-z b) (is-z b false (eq (pred a) (pred b)))
+eq? = \ a b . is-z a (is-z b) (is-z b false (eq? (pred a) (pred b)))
 all = foldr (\ a b . a b false) true
 allf = \ f xs . all (map f xs)
 </textarea>

lambdacalc.js

@@ -17,10 +17,10 @@ CodeMirror.defineMode("lambdacalc", function(_config, modeConfig) {
   const SUPPRESS = "text";
   const FAIL = "error";
 
-  const defName = /[a-zA-Z][a-zA-Z0-9_\-']*/
+  const defName = /[a-zA-Z][-'\w]*\??/
   const assign = /=/
   const brack = /\(|\)/
-  const lamArg = /[a-zA-Z_][a-zA-Z0-9_\-']*|\./
+  const lamArg = /[_a-zA-Z][-'\w]*\??|\./
   const numconst = /-?\d+/
 
   function expectDefOrTerm(stream, state) {