From 3bc7ff37d7ee5d6d434d290826fecabf9c86a102 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 23 Feb 2023 08:50:54 -0500
Subject: Rename pow to expt to match Scheme procedure name.

---
 chickadee/graphics/seagull.scm | 9 +++++----
 1 file 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)
-- 
cgit v1.2.3