fix sqrt, bad syntax

master
CrossNox 3 years ago
parent eae46f8ec0
commit 8461be5a41
  1. 2
      src/rustint/core.clj

@ -1988,7 +1988,7 @@
; SQRT: Incrementa cont-prg en 1, quita de la pila un elemento numerico, calcula su raiz cuadrada y la coloca al final de la pila. ; SQRT: Incrementa cont-prg en 1, quita de la pila un elemento numerico, calcula su raiz cuadrada y la coloca al final de la pila.
SQRT (let [ SQRT (let [
res (Math.sqrt (last pila)), res (Math/sqrt (last pila)),
nueva_pila (assoc pila (- (count pila) 1) res) nueva_pila (assoc pila (- (count pila) 1) res)
] ]
(recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs)

Loading…
Cancel
Save