--- cvsroot/microscheme/opdefines.h 2015/12/01 03:03:11 1.13 +++ cvsroot/microscheme/opdefines.h 2015/12/01 03:44:32 1.14 @@ -56,6 +56,11 @@ OP_DEF (0, "call-with-current-continuation", 1, 1 , TST_NONE , OP_CONTINUATION) #if USE_MATH OP_DEF (1, "inexact->exact" , 1, 1 , TST_NUMBER , OP_INEX2EX) +OP_DEF (1, "floor" , 1, 1 , TST_NUMBER , OP_FLOOR) +OP_DEF (1, "ceiling" , 1, 1 , TST_NUMBER , OP_CEILING) +OP_DEF (1, "truncate" , 1, 1 , TST_NUMBER , OP_TRUNCATE) +OP_DEF (1, "round" , 1, 1 , TST_NUMBER , OP_ROUND) +OP_DEF (1, "sqrt" , 1, 1 , TST_NUMBER , OP_SQRT) OP_DEF (1, "exp" , 1, 1 , TST_NUMBER , OP_EXP) OP_DEF (1, "log" , 1, 2 , TST_NUMBER , OP_LOG) OP_DEF (1, "sin" , 1, 1 , TST_NUMBER , OP_SIN) @@ -64,12 +69,7 @@ OP_DEF (1, "asin" , 1, 1 , TST_NUMBER , OP_ASIN) OP_DEF (1, "acos" , 1, 1 , TST_NUMBER , OP_ACOS) OP_DEF (1, "atan" , 1, 2 , TST_NUMBER , OP_ATAN) -OP_DEF (1, "sqrt" , 1, 1 , TST_NUMBER , OP_SQRT) OP_DEF (1, "expt" , 2, 2 , TST_NUMBER , OP_EXPT) -OP_DEF (1, "floor" , 1, 1 , TST_NUMBER , OP_FLOOR) -OP_DEF (1, "ceiling" , 1, 1 , TST_NUMBER , OP_CEILING) -OP_DEF (1, "truncate" , 1, 1 , TST_NUMBER , OP_TRUNCATE) -OP_DEF (1, "round" , 1, 1 , TST_NUMBER , OP_ROUND) #endif OP_DEF (1, "+" , 0, INF_ARG, TST_NUMBER , OP_ADD) OP_DEF (1, "-" , 1, INF_ARG, TST_NUMBER , OP_SUB)