changed the notatin of an error literal from #\eNNN to #eNNN.

changed the notation of a smptr literal from #\pXXXX to #pXXXX
This commit is contained in:
2018-03-05 03:47:18 +00:00
parent e3b5d33811
commit 2c1b4448be
2 changed files with 18 additions and 30 deletions

View File

@ -240,11 +240,11 @@ next:
goto done;
case HCL_BRAND_SMPTR:
if (outbfmt(hcl, mask, "#\\p%zX", (hcl_oow_t)HCL_OOP_TO_SMPTR(obj)) <= -1) return -1;
if (outbfmt(hcl, mask, "#p%zX", (hcl_oow_t)HCL_OOP_TO_SMPTR(obj)) <= -1) return -1;
goto done;
case HCL_BRAND_ERROR:
if (outbfmt(hcl, mask, "#\\e%zd", (hcl_ooi_t)HCL_OOP_TO_ERROR(obj)) <= -1) return -1;
if (outbfmt(hcl, mask, "#e%zd", (hcl_ooi_t)HCL_OOP_TO_ERROR(obj)) <= -1) return -1;
goto done;
case HCL_BRAND_CHARACTER: