feat[stdlib]: add force-bin

Consensys · Mar 6, 2024 · 8c3e978 · 8c3e978
1 parent 2641054
commit 8c3e978
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/stdlib.lisp b/src/stdlib.lisp
@@ -9,6 +9,8 @@
 (defpurefun ((force-bool :@bool :force) x) x)
 (defpurefun ((is-binary :@loob :force) e0) (* e0 (- 1 e0)))
 
+(defpurefun ((force-bin :binary :force) x) x)
+
 ;;
 ;; Boolean functions
 ;;