q-form renaming effort

test.clx

@@ -99,10 +99,10 @@ readln puts cr  # Test readln
 ] [
   drop drop drop "  isstr FAIL" puts cr
 ]
-[ 1 2 ] isquot [ 42 isquot not ] dip and [ "hello" isquot not ] dip and if [
-  drop drop drop "  isquot PASS" puts cr
+[ 1 2 ] isq [ 42 isq not ] dip and [ "hello" isq not ] dip and if [
+  drop drop drop "  isq PASS" puts cr
 ] [
-  drop drop drop "  isquot FAIL" puts cr
+  drop drop drop "  isq FAIL" puts cr
 ]
 "Testing binary predicates..." puts cr
 5 3 >
@@ -171,8 +171,8 @@ if [
   "  l2s, streq, lower, and upper FAIL" puts cr
 ]
 
-# 8. List Operations
-"Testing list operations..." puts cr
+# 8. Q-form Operations
+"Testing Q-form operations..." puts cr
 
 5 [ 6 ] cons uncons 1 = [ 5 = ] dip and [ [ 6 ] streq ] dip and if [ "  cons/uncons PASS" puts cr ] [ "  cons/uncons FAIL" puts cr ]  # Test cons/uncons
 5 [ 6 ] qpush [ 6 5 ] streq if [ "  qpush PASS" puts cr ] [ "  qpush FAIL" puts cr ]  # Test qpush
@@ -222,7 +222,7 @@ my_inline 100 = if [ "  :: (inline) PASS" puts cr ] [ "  :: (inline) FAIL" puts
 
 # 12. Host Arguments & Host Exit
 "Testing host arguments and exit..." puts cr
-hsargs isquot [ hsargs qlen 0 > ] and if [
+hsargs isq [ hsargs qlen 0 > ] and if [
   "  hsargs PASS" puts cr
 ] [
   "  hsargs FAIL" puts cr