sync from Atlas

18-with-match/lispy/py3.10/lis.py

@@ -58,10 +58,11 @@ def parse_atom(token: str) -> Atom:
         except ValueError:
             return Symbol(token)
 
+
 ################ Global Environment
 
 # tag::ENV_CLASS[]
-class Environment(ChainMap):
+class Environment(ChainMap[Symbol, Any]):
     "A ChainMap that allows changing an item in-place."
 
     def change(self, key: Symbol, value: object) -> None:
@@ -73,7 +74,6 @@ class Environment(ChainMap):
         raise KeyError(key)
 # end::ENV_CLASS[]
 
-
 def standard_env() -> Environment:
     "An environment with some Scheme standard procedures."
     env = Environment()
@@ -119,11 +119,11 @@ def standard_env() -> Environment:
 ################ Interaction: A REPL
 
 # tag::REPL[]
-def repl() -> NoReturn:
+def repl(prompt: str = 'lis.py> ') -> NoReturn:
     "A prompt-read-eval-print loop."
     global_env = standard_env()
     while True:
-        ast = parse(input('lis.py> '))
+        ast = parse(input(prompt))
         val = evaluate(ast, global_env)
         if val is not None:
             print(lispstr(val))
@@ -149,8 +149,6 @@ def evaluate(exp: Expression, env: Environment) -> Any:
             return x
         case Symbol(var):
             return env[var]
-        case []:
-            return []
         case ['quote', x]:
             return x
         case ['if', test, consequence, alternative]:
@@ -166,8 +164,8 @@ def evaluate(exp: Expression, env: Environment) -> Any:
             env[name] = Procedure(parms, body, env)
         case ['set!', Symbol(var), value_exp]:
             env.change(var, evaluate(value_exp, env))
-        case [op, *args] if op not in KEYWORDS:
-            proc = evaluate(op, env)
+        case [func_exp, *args] if func_exp not in KEYWORDS:
+            proc = evaluate(func_exp, env)
             values = [evaluate(arg, env) for arg in args]
             return proc(*values)
         case _: