diff options
| -rw-r--r-- | chickadee/graphics/seagull.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/chickadee/graphics/seagull.scm b/chickadee/graphics/seagull.scm index a1367b7..daf3caf 100644 --- a/chickadee/graphics/seagull.scm +++ b/chickadee/graphics/seagull.scm @@ -126,7 +126,7 @@ (memq x '(int->float float->int))) (define (math-function? x) - (memq x '(abs sqrt pow min max mod floor ceil sin cos tan + (memq x '(abs sqrt expt min max mod floor ceil sin cos tan clamp mix step smoothstep length))) (define (vertex-primitive-call? x) @@ -700,7 +700,7 @@ (>= . ,>=) (mod . ,mod) (sqrt . ,sqrt) - (pow . ,expt) + (expt . ,expt) (min . ,min) (max . ,max) (sin . ,sin) @@ -2529,7 +2529,7 @@ (predicate:or (predicate:= a type:int) (predicate:= a type:float))))))) - (define type:pow + (define type:expt (let ((a (fresh-variable-type))) (list (type-scheme (list a) @@ -2611,7 +2611,7 @@ (length . ,type:length) (abs . ,type:abs) (sqrt . ,type:sqrt) - (pow . ,type:pow) + (expt . ,type:expt) (min . ,type:min/max) (max . ,type:min/max) (step . ,type:step) @@ -2952,6 +2952,7 @@ (define %primcall-map '((float->int . int) (int->float . float) + (expt . pow) (texture . texture))) (define (emit:primcall type operator args stage version port level) |