Problem solved.
Reading the full 'doc helps. The solution was 'Any.
: (pool "type.db")
-> T
: (class +Function +Entity)
-> +Function
: (rel name (+Idx +String))
-> +Function
: (rel body (+Any +Need))
-> +Function
: (new! '(+Function) 'name "fakultät" 'body '((N) (apply '* (range 1 N))))
-> {2}
: (new! '(+Function) 'name "sum2" 'body '((N X) (+ N X )))
-> {5}
: (new! '(+Function) 'name "1-to-N-sum" 'body '((N) (/ (* N (inc N)) 2)))
-> {6}
: (select +Function)
{6} (+Function)
name "1-to-N-sum"
body ((N) (/ (* N (inc N)) 2))
{2} (+Function)
name "fakultät"
body ((N) (apply '* (range 1 N)))
{5} (+Function)
name "sum2"
body ((N X) (+ N X))
2017-03-10 22:46 GMT+01:00 Joh-Tob Schäg <johtob...@gmail.com>:
> Hello,
>
> i try to store a function is a database. Can somebody spot what i am doing
> wrong?
>
> (pool "types.db") #empty
> : (class +Function +Entity)
> -> +Function
> : (rel name (+Idx +String))
> -> +Function
> : (rel body (+Bag +Bag +Need))
> -> +Function
> ? (select +Function)
> {5} (+Function)
> name "1-to-N-sum"
>
> {2} (+Function)
> name "fakultät"
>
> {6} (+Function)
> name "sum2"
>
> -> NIL
> ? (get {6} 'body)
> -> NIL
> ? (get {2} 'body)
> -> NIL
> ? (get {2} body)
> -> NIL
> ? (request '(+Function) 'body '((N X) (+ N X ))) #New Function with this
> body is created because nothing found
> -> {13}
> ? (show {13})
> -> (+Function)
> ? (request '(+Function) 'body '((N X) (+ N X ))) #New Function with this
> body is created again!
> -> {14}
>
>
>
>
>
>
