@@ -2,4 +2,4 @@ author: Fabio Cevasco
 description: A small but practical concatenative programming language and shell.
 id: 56055122
 name: min
-version: 0.36.0+version: 0.37.0

@@ -212,6 +212,13 @@ if i.pop.kind == minQuotation:
       i.push true.newVal
     else:
       i.push false.newVal
+  
+  def.symbol("quoted-symbol?") do (i: In):
+    let item = i.pop
+    if item.kind == minQuotation and item.qVal.len == 1 and item.qVal[0].kind == minSymbol:
+      i.push true.newVal
+    else:
+      i.push false.newVal
 
   def.symbol("stringlike?") do (i: In):
     if i.pop.isStringLike:

@@ -1,6 +1,7 @@ 
 ### Fixes and Improvements
 
 * Miscellaneous documentation fixes.
-* Now clearing the stack after every HTTP request received by `http-server`.
+* Now clearing the stack after every HTTP request received by **http-server**.
 * Fixed #174 (cons operator was not creating a new quotation).
 * Fixed #176 (times can now execute a quotation 0 times).
+* Added **quoted-symbol?** predicate.

@@ -80,6 +80,9 @@ 
 {#op||quotation?||{{any}}||{{b}}||
 Returns {{t}} if {{any}} is a quotation, {{f}} otherwise. #}
 
+{#op||quoted-symbol?||{{any}}||{{b}}||
+Returns {{t}} if {{any}} is a quoted symbol, {{f}} otherwise. #}
+
 {#op||string?||{{any}}||{{b}}||
 Returns {{t}} if {{any}} is a string, {{f}} otherwise. #}
 

@@ -6,5 +6,5 @@ "rules": "rules.min",
   "temp": "temp",
   "templates": "templates",
   "title": "min language",
-  "version": "0.36.0"
+  "version": "0.37.0"
 }

@@ -136,6 +136,10 @@ ("a" stringlike?) *test/assert
   (1 stringlike? false ==) *test/assert
   ('test stringlike?) *test/assert
 
+  (("a") quoted-symbol? not) *test/assert
+  ('test quoted-symbol?) *test/assert
+  ((aaa bbb) quoted-symbol? not) *test/assert
+
   ({} 'dict:module type? false ==) *test/assert
   ((1 2 3) 'dict:module type? false ==) *test/assert
   (4 'dict:module type? false ==) *test/assert