# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1481949697 18000
# Node ID 74a28f68aa629537f788f8e528f8ac5b24374961
# Parent  a4741fecf88dc0a163fd362f38cdde430b0d5a17
Rename `square` to avoid name conflict

diff -r a4741fecf88d -r 74a28f68aa62 src/emulator.lisp
--- a/src/emulator.lisp	Fri Dec 16 23:41:29 2016 -0500
+++ b/src/emulator.lisp	Fri Dec 16 23:41:37 2016 -0500
@@ -337,7 +337,8 @@
 (defconstant +audio-buffer-size+ 512)
 (defconstant +audio-buffer-time+ (* +audio-buffer-size+ (/ +sample-rate+)))
 
-(defun square (angle)
+
+(defun sqr (angle)
   (if (< (mod angle +tau+) +pi+)
     1.0
     -1.0))
@@ -367,7 +368,7 @@
     (finally (return (mod angle +tau+)))))
 
 (defun fill-square (buffer rate start)
-  (fill-buffer buffer #'square rate start))
+  (fill-buffer buffer #'sqr rate start))
 
 (defun fill-sine (buffer rate start)
   (fill-buffer buffer #'sin rate start))