chapter A: self-hosting (wip)

Author: metaleap

ast.go

@@ -54,9 +54,6 @@ func (me *ExprFn) envWith(args []Expr) (*Env, error) {
 		num_args_min, num_args_max = len(me.params)-1, -1
 	}
 	if err := checkArgsCount(num_args_min, num_args_max, strings.TrimSpace("function "+me.nameMaybe), args); err != nil {
-		if me.nameMaybe == "" && fakeFuncNamesForDebugging {
-			panic("WHOIS")
-		}
 		return nil, err
 	}
 	if me.isVariadic {

main.go

@@ -68,12 +68,12 @@ const srcMiniStdlibNonMacros = `
 (def nth at)
 
 (def first
-	(fn (lst)
-		(at lst 0)))
+	(fn (list)
+		(at list 0)))
 
 (def rest
-	(fn (lst)
-		(at lst 1 -1)))
+	(fn (list)
+		(at list 1 -1)))
 
 (def loadFile
 	(fn (srcFilePath)
@@ -83,10 +83,10 @@ const srcMiniStdlibNonMacros = `
 		(eval expr)))
 
 (def map
-	(fn (func lst)
-		(if (isEmpty lst)
+	(fn (func list)
+		(if (isEmpty list)
 			()
-			(cons (func (first lst)) (map func (rest lst))))))
+			(cons (func (first list)) (map func (rest list))))))
 
 `
 

special_forms.go

@@ -108,7 +108,7 @@ func stdLet(env *Env, args []Expr) (*Env, Expr, error) {
 		if err != nil {
 			return nil, nil, err
 		}
-		if err = checkArgsCount(2, 2, "`let`", pair); err != nil {
+		if err = checkArgsCount(2, 2, "a `let` pairing", pair); err != nil {
 			return nil, nil, err
 		}
 		name, err := checkIs[ExprIdent](pair[0])

util.go

@@ -4,7 +4,6 @@ import (
 	"fmt"
 	"io"
 	"os"
-	"reflect"
 )
 
 func isNilOrFalse(expr Expr) bool {
@@ -44,9 +43,6 @@ func checkArgsCount(wantAtLeast int, wantAtMost int, name string, have []Expr) e
 func checkIs[T Expr](have Expr) (T, error) {
 	ret, ok := have.(T)
 	if !ok {
-		if reflect.TypeOf(ret) == reflect.TypeFor[*ExprFn]() {
-			panic("WHOIS?")
-		}
 		return ret, fmt.Errorf("expected %T, not %T", ret, have)
 	}
 	return ret, nil
@@ -95,7 +91,6 @@ func checkIsSeq(expr Expr) ([]Expr, error) {
 	case ExprVec:
 		return ([]Expr)(expr), nil
 	default:
-		// panic("WHOIS")
 		return nil, fmt.Errorf("expected list or vector, not %T", expr)
 	}
 }