You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
591 B
Go
25 lines
591 B
Go
12 years ago
|
package main
|
||
|
|
|
||
|
|
import (
|
||
|
|
"fmt"
|
||
|
|
"reflect"
|
||
|
|
)
|
||
|
|
|
||
|
|
type special func(*environment, ...interface{}) (interface{}, error)
|
||
|
|
|
||
|
|
func define(env *environment, args ...interface{}) (interface{}, error) {
|
||
|
|
if len(args) != 2 {
|
||
|
|
return nil, fmt.Errorf(`received %d arguments in *define*, expected exactly 2`, len(args))
|
||
|
|
}
|
||
|
|
s, ok := args[0].(symbol)
|
||
|
|
if !ok {
|
||
|
|
return nil, fmt.Errorf(`first argument to *define* must be symbol, received %v`, reflect.TypeOf(args[0]))
|
||
|
|
}
|
||
|
|
env.set(s, args[1])
|
||
|
|
return nil, nil
|
||
|
|
}
|
||
|
|
|
||
|
|
func quote(_ *environment, args ...interface{}) (interface{}, error) {
|
||
|
|
return sexp(args), nil
|
||
|
|
}
|