-(defprim :ifelse :command (lambda (pred a b)
- `(if ,pred
- ,@(make-command-block-inline a)
- ,@(make-command-block-inline b))))
-
-(defprim-alias :if-else :ifelse)
+(defprim '(:ifelse :if-else)
+ :command (lambda (pred a b)
+ `(if ,pred
+ ,@(make-command-block-inline a)
+ ,@(make-command-block-inline b))))
+
+(defagentvalueprim :label)
+(defagentvalueprim :label-color)