Fixed choice of characters for href/id/class in ++sail: update . to /, @ to #, / to .

This commit is contained in:
Anton Dyudin 2014-06-16 12:34:37 -07:00 committed by Anton Dyudin
parent 71c750afae
commit 18204b1d8d
2 changed files with 14 additions and 13 deletions

View File

@ -890,10 +890,10 @@
==
=+ ^= bod ^- manx
;body
;div@output;
;div@input
;div/prompt;
;input/line(type "text");
;div#output;
;div#input
;div.prompt;
;input.line(type "text");
==
==
=. +.bod (weld `marl`+.bod `marl`~[sic])
@ -1665,10 +1665,10 @@
==
==
;body
;div@output;
;div@input
;div/prompt;
;input/line(type "text");
;div#output;
;div#input
;div.prompt;
;input.line(type "text");
==
;+ [-.sac `marl`[sez +.sac]]
==

View File

@ -1314,7 +1314,7 @@
$(n m, m n)
=+ dif=(abs:si (dif:si e.n e.m))
=+ a2=(lsh 0 dif a.n) :: p+1+dif bits
=+ a3=(^sub a2 a.m) :: assume m is negative for now
=+ a3=(^sub a2 a.m) :: assume m < 0 for now
=+ dif2=(^sub (met 0 a2) (met 0 a3)) :: (met 0 a2) > (met 0 a3)
[s=s.n e=(dif:si e.n (sun:si dif2)) a=(rnd p a3)] :: n > m => s=s.n
@ -1363,7 +1363,8 @@
=+ a2=(lia:fl 52 a.a)
=+ b=(ira:fl a2)
::=+ c=(lsh 0 (^sub 52 (met 0 b)) b)
(can 0 [[52 b] [[11 (abs:si (sum:si (sun:si 1.023) e.a))] [[1 `@`s.a] ~]]])
%+ can 0
[[52 b] [[11 (abs:si (sum:si (sun:si 1.023) e.a))] [[1 `@`s.a] ~]]]
:: Sign of an @rd
++ sig |= [a=@rd] ^- ?
=(0 (rsh 0 63 a))
@ -8286,9 +8287,9 @@
[a e]
;~ plug
fry
;~(pose (stag ~ ;~(pfix fas sym)) (easy ~))
;~(pose (stag ~ ;~(pfix pat sym)) (easy ~))
;~(pose (stag ~ ;~(pfix dot (stag %smdq soil))) (easy ~))
;~(pose (stag ~ ;~(pfix dot sym)) (easy ~))
;~(pose (stag ~ ;~(pfix hax sym)) (easy ~))
;~(pose (stag ~ ;~(pfix fas (stag %smdq soil))) (easy ~))
;~ pose
%+ ifix [pel per]
%+ more ;~(plug com ace)