From 393b54d873c3e83889fc0171d6811e08c7b0c955 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Sun, 4 Sep 2022 17:05:06 -0700
Subject: [PATCH] Fixup see for code words.

---
 common/utils.fs      | 3 ++-
 examples/code_x64.fs | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/common/utils.fs b/common/utils.fs
index b68336b..49787c1 100644
--- a/common/utils.fs
+++ b/common/utils.fs
@@ -131,9 +131,10 @@ variable indent
     ?see-flags cr
     exit
   then
-  dup >flags BUILTIN_FORK and if ." Built-in fork: " see. exit then
+  dup >flags BUILTIN_FORK and if ." Built-in-fork: " see. exit then
   dup @ ['] input-buffer @ = if ." CREATE/VARIABLE: " see. cr exit then
   dup @ ['] SMUDGE @ = if ." DOES>/CONSTANT: " see. cr exit then
+  dup @ ['] callcode @ = if ." Code: " see. cr exit then
   dup >params 0= if ." Built-in: " see. cr exit then
   ." Unsupported: " see. cr ;
 
diff --git a/examples/code_x64.fs b/examples/code_x64.fs
index 4468dfc..b6a416d 100644
--- a/examples/code_x64.fs
+++ b/examples/code_x64.fs
@@ -8,5 +8,6 @@ code my2*
   $c3 code1,                       ( ret )
 end-code
 
+see my2*
 123 my2* . cr
 bye