|
|
@ -142,8 +142,17 @@ func booleanize(v interface{}) bool {
|
|
|
|
// would evaluate to "bar"
|
|
|
|
// would evaluate to "bar"
|
|
|
|
var _if = special{
|
|
|
|
var _if = special{
|
|
|
|
name: "if",
|
|
|
|
name: "if",
|
|
|
|
arity: 3,
|
|
|
|
arity: 2,
|
|
|
|
|
|
|
|
variadic: true,
|
|
|
|
fn: func(env *environment, args []interface{}) (interface{}, error) {
|
|
|
|
fn: func(env *environment, args []interface{}) (interface{}, error) {
|
|
|
|
|
|
|
|
if len(args) > 3 {
|
|
|
|
|
|
|
|
return nil, arityError{
|
|
|
|
|
|
|
|
expected: 3,
|
|
|
|
|
|
|
|
received: len(args),
|
|
|
|
|
|
|
|
name: "ifpooop",
|
|
|
|
|
|
|
|
variadic: false,
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
v, err := eval(args[0], env)
|
|
|
|
v, err := eval(args[0], env)
|
|
|
|
if err != nil {
|
|
|
|
if err != nil {
|
|
|
|
return nil, err
|
|
|
|
return nil, err
|
|
|
@ -152,7 +161,10 @@ var _if = special{
|
|
|
|
if booleanize(v) {
|
|
|
|
if booleanize(v) {
|
|
|
|
return eval(args[1], env)
|
|
|
|
return eval(args[1], env)
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if len(args) == 3 {
|
|
|
|
return eval(args[2], env)
|
|
|
|
return eval(args[2], env)
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
return nil, nil
|
|
|
|
},
|
|
|
|
},
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
@ -281,3 +293,39 @@ var names = special{
|
|
|
|
return env.keys(), nil
|
|
|
|
return env.keys(), nil
|
|
|
|
},
|
|
|
|
},
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
var and = special{
|
|
|
|
|
|
|
|
name: "and",
|
|
|
|
|
|
|
|
arity: 1,
|
|
|
|
|
|
|
|
variadic: true,
|
|
|
|
|
|
|
|
fn: func(env *environment, args []interface{}) (interface{}, error) {
|
|
|
|
|
|
|
|
for _, v := range args {
|
|
|
|
|
|
|
|
t, err := eval(v, env)
|
|
|
|
|
|
|
|
if err != nil {
|
|
|
|
|
|
|
|
return false, err
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
if !booleanize(t) {
|
|
|
|
|
|
|
|
return false, nil
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
return true, nil
|
|
|
|
|
|
|
|
},
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
var or = special{
|
|
|
|
|
|
|
|
name: "or",
|
|
|
|
|
|
|
|
arity: 1,
|
|
|
|
|
|
|
|
variadic: true,
|
|
|
|
|
|
|
|
fn: func(env *environment, args []interface{}) (interface{}, error) {
|
|
|
|
|
|
|
|
for _, v := range args {
|
|
|
|
|
|
|
|
t, err := eval(v, env)
|
|
|
|
|
|
|
|
if err != nil {
|
|
|
|
|
|
|
|
return false, err
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
if booleanize(t) {
|
|
|
|
|
|
|
|
return true, nil
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
return false, nil
|
|
|
|
|
|
|
|
},
|
|
|
|
|
|
|
|
}
|
|
|
|