Add RTCompat Peek

Signed-off-by: James Hamlin <[email protected]>
glojurelang · Jan 28, 2024 · 8d46a6b · 8d46a6b
1 parent 773acc1
commit 8d46a6b
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/pkg/runtime/rtcompat.go b/pkg/runtime/rtcompat.go
@@ -55,6 +55,14 @@ func (rt *RTMethods) NthDefault(x interface{}, i int, def interface{}) interface
 	return v
 }
 
+func (rt *RTMethods) Peek(x interface{}) interface{} {
+	if IsNil(x) {
+		return nil
+	}
+	stk := x.(IPersistentStack)
+	return stk.Peek()
+}
+
 func (rt *RTMethods) Pop(x interface{}) interface{} {
 	if IsNil(x) {
 		return nil