X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=blobdiff_plain;f=src%2Fcompiler%2Fcompiler.lisp;fp=src%2Fcompiler%2Fcompiler.lisp;h=25ad560c3222a52660d40d9b4bf73291a7495ce5;hp=e3bac1868841723fff0a9f74ffd42f5049a42c0e;hb=a3565f3064e7bf03582278017ac50a2aa8a04c89;hpb=96a7d211736c09783726ba0d98ebb6a43757074d

diff --git a/src/compiler/compiler.lisp b/src/compiler/compiler.lisp
index e3bac18..25ad560 100644
--- a/src/compiler/compiler.lisp
+++ b/src/compiler/compiler.lisp
@@ -1018,6 +1018,9 @@
 (define-builtin expt (x y)
   `(method-call |Math| "pow" ,x ,y))
 
+(define-builtin sqrt (x)
+  `(method-call |Math| "sqrt" ,x))
+
 (define-builtin float-to-string (x)
   `(call |make_lisp_string| (method-call ,x |toString|)))