static const char TypeBin[] = "B";
static const char TypeBlob[] = "O";
-static const char TypeBool[] = "?";
+static const char TypeBool[] = "b";
static const char TypeHexlet[] = "H";
static const char TypeInt[] = "I";
static const char TypeList[] = "L";
switch t {
case "N":
expected = append(expected, types.NIL)
- case "?":
+ case "b":
expected = append(expected, types.Bool)
case "H":
expected = append(expected, types.Hexlet)
}
set knownTypes [dict create \
- bin B blob O bool ? hexlet H int I list L magic K map M nil N str S tai T]
+ bin B blob O bool b hexlet H int I list L magic K map M nil N str S tai T]
proc TYPE {types} {
variable knownTypes